1 POKE55,0:POKE56,128:CLR
2 POKE53281,0:POKE53280,0:PRINTCHR$(147)CHR$(14)CHR$(8);
3 POKE147,0:SYS57812"WINDOWS.O",8,1:SYS62631
4 SYS57812"PUZZLE.FONT",8,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
5 POKE53272,29
6 DIM M$(8),R$(4):F=0:FF=0
7 FORI=1TO4:READR$(I):NEXT
8 DATA "[210]EAD IT           ","[210]UN IT            ","[195]REDITS           "
9 DATA "[205]AIN [205]ENU         "
10 FORI=1TO7:READM$(I):NEXT
11 DATA "[195]ROSSWORD - [197]ASY     "
12 DATA "[195]ROSSWORD - [205]EDIUM   "
13 DATA "[195]ROSS [212]OTAL          "
14 DATA "[204]OGIC [208]ROBLEM        "
15 DATA "[195]RAZYQUOTES          "
16 DATA "[196]OWNWORDS            "
18 DATA "[204]OADSTAR             "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]       [191][191][191] [212]HE [208]UZZLE [208]AGE [191][191][191]        [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                       [221]"
105 FORI=1TO9:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO7:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,0,0,24,39,43008,1,0,0
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THEN200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=7:R=11
170 IFK$=""THENM=M+1:R=R+1:IFM>7THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1)
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 IFM=7THEN11000:REMRETURNLS
220 POKE214,11:PRINT
225 PRINTTAB(13)"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
227 Q1$="[221]                    [221]"
229 FORI=1TO6:PRINTQ1$:NEXT
230 PRINTTAB(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
232 POKE214,13:PRINT
234 FORI=1TO4:PRINTTAB(15)""R$(I):NEXT
280 R2=13:M2=1:POKE214,R2:PRINT:PRINTTAB(15)"[154]"R$(M2):M1=M2:R1=R2
285 GETK$:IFK$=""THEN285
290 IFK$=CHR$(13)THEN400
295 IFK$="[145]"THENM2=M2-1:R2=R2-1:IFM2<1THENM2=4:R2=16
300 IFK$=""THENM2=M2+1:R2=R2+1:IFM2>4THENM2=1:R2=13
305 IFM2<>M1THENPOKE214,R1:PRINT:PRINTTAB(15)"[153]"R$(M1)
310 POKE214,R2:PRINT:PRINTTAB(15)"[154]"R$(M2)
315 M1=M2:R1=R2
320 GOTO285
325 :
400 IFM2=4THENSYS52496,0,0,24,39,43008,8,0,0:GOSUB28:GOTO150:REM MAIN MENU
401 :
402 IFM2=3THEN500:REM CREDITS
403 IFM2=1THEN600:REM INSTR
410 IFM2=2ANDM=1THEN700
411 IFM2=2ANDM=2THEN700
412 IFM2=2ANDM=3THEN700
413 IFM=4THENF$="PLAYBALL"
414 IFM=5THENF$="CRAZY#1"
415 IFM=6THENF$="DOWN#1"
422 GOSUB9600
423 IFFF<>2THENSYS57812"CLEVELAND",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
424 FF=2
425 POKE147,0:SYS57812F$,8,1:SYS62631
430 POKE53272,31:SYS2048
435 SYS52496,0,0,24,39,43008,8,0,0:GOSUB28:POKE53272,29:GOTO150
440 :
500 IFM=1THENCR$="[201]KE [205]ILLER"
501 IFM=2THENCR$="[201]KE [205]ILLER"
505 IFM=3THENCR$="[194]ARBARA [200]. [211]CHULAK"
510 IFM=4THENCR$="[194]ARBARA [200]. [211]CHULAK"
515 IFM=5THENCR$="[194]ARBARA [200]. [211]CHULAK"
516 IFM=6THENCR$="[194]ARBARA [200]. [211]CHULAK"
520 SYS52496,0,0,24,39,40960,1,0,0
525 POKE214,16:PRINT:PRINTTAB(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(5)"[221]     [208]UZZLE(S) [194]Y      [221]"
530 PRINTTAB(5)QQ$
535 PRINTTAB(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
540 POKE214,18:PRINT:PRINTTAB(17-LEN(CR$)/2)""CR$
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52496,0,0,24,39,40960,8,0,0:GOSUB28:GOTO285
555 :
600 SYS52496,0,0,24,39,40960,1,0,0
605 ONMGOSUB5000,5000,7000,6000,5400,6600
610 SYS52496,0,0,24,39,40960,8,0,0:GOSUB28:GOTO280
625 :
700 GOSUB9600
714 IFM=1THENF$="EASY":F1$="XWORD2048"
715 IFM=2THENF$="MEDIUM":F1$="XWORD2048"
720 IFM=3THENF$="XSUMS2":F1$="XSUMS2048"
721 X=LEN(F$):POKE828,X+3
722 FORI=1TOX:POKE831+I,ASC(MID$(F$,I,1)):NEXT
723 POKE829,ASC("@")
724 POKE830,ASC("0")
725 POKE831,ASC(":")
726 SYS57812F$,8,0
727 POKE780,0:POKE781,O:POKE782,128
728 SYS65493
730 POKE147,0:SYS57812F1$,8,1:SYS62631
732 IFFF=1THEN750
735 SYS57812"XSUMS.FONT",8,0
740 POKE780,0:POKE781,O:POKE782,56
745 SYS65493:FF=1
750 POKE53272,31:SYS2048
760 POKE53272,29:SYS52496,0,0,24,39,43008,8,0,0:GOSUB28:GOTO150
5000 GOSUB26
5005 PRINT"[221][156]           [195]ROSSWORD [208]UZZLES          [146][221]";
5010 PRINTLN$;
5020 PRINT"[155]    [213]SE THE CURSOR KEYS TO MANEUVER
5025 [153]"LIST AROUND THE GRID AND PRESS THE KEYS
5030 PRINT"[155] TO ENTER YOUR SOLUTIONS.
5040 [153]"LIST   (null)HE DEFINITIONS ARE DISPLAYED AT
5045 PRINT"[155] THE BOTTOM OF THE SCREEN AND
5050 [153]"LIST RESPRESENT THE CLUES BOTH ACROSS AND
5055 PRINT"[155] DOWN FOR THE SQUARE THAT THE CURSOR
5060 [153]"LIST IS ON.  ATNS YOU MOVE THE CURSOR, THE
5065 PRINT"[155] CLUES WILL CHANGE TO REFLECT YOUR
5070 [153]"LIST POSITION ON THE GRID.
5080 PRINT"[155]   [193]LL CONTROLS ARE LISTED ON THE
5085 [153]"LIST PLAYING SCREEN."
5110 [153]LN$;
5115 [153]"(null)CONT             (null)RESS (null)VAL(null)(null)(null)(null)             WAIT(null)";
5125 [161]K$:[139]K$[179][177][199](13)[167]5125
5127 [142]
5400 [141]26
5405 [153]"(null)CLR              LENRAZYQUOTES             WAIT(null)";
5410 [153]LN$;
5420 [153]"LIST    LENRAZYQUOTES ARE QUOTATIONS IN
5425 PRINT"[155] CODE.  [217]OUR JOB IS TO FIGURE OUT
5430 [153]"LIST THIS SIMPLE SUBSTITUTION CODE.
5440 PRINT"[155]    [213]SE THE CURSOR KEYS TO MANEUVER
5445 [153]"LIST AROUND THE QUOTATION BOX AND PRESS
5450 PRINT"[155] A LETTER KEY TO ENTER POSSIBLE
5455 [153]"LIST ANSWERS.  ATNLL LETTERS WITH THE SAME
5460 PRINT"[155] CODE WILL BE AUTOMATICALLY CHANGED
5465 [153]"LIST AT ONCE.
5475 PRINT"[155]    [208]RESS [198]1 TO RETURN TO THE MENU,
5480 [153]"LIST ASC2 TO SEE THE SOLUTION, OR ASC7 FOR
5482 PRINT"[155] A HINT."
5510 PRINTLN$;
5515 PRINT"[221][154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
5525 GETK$:IFK$<>CHR$(13)THEN5525
5530 RETURN
6000 GOSUB26
6005 PRINT"[221][156]            [204]OGIC [208]ROBLEM             [146][221]";
6010 PRINTLN$;
6015 PRINTMD$;
6020 PRINT"[155]    [201]NSTRUCTIONS FOR [208][204][193][217] [194][193][204][204]! ARE"
6025 PRINT"[155] INCLUDED IN THE PROGRAM."
6030 POKE214,21:PRINT
6055 PRINTLN$;
6060 PRINT"[154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
6090 GETK$:IFK$<>CHR$(13)THEN6090
6095 RETURN
6600 GOSUB26
6605 PRINT"[221][156]              [196]OWNWORDS               [146][221]";
6610 PRINTLN$;
6620 PRINT"[155]    [212]HE OBJECT OF DOWNWORD PUZZLES
6625 [153]"LIST IS TO INSERT A DIFFERENT LETTER OF
6630 PRINT"[155] THE ALPHABET INTO THE 26 EMPTY
6635 [153]"LIST SQUARES TO FORM WORDS OF 5 LETTERS
6640 PRINT"[155] OR MORE READING DOWN.
6650 [153]"LIST    (null)SE THE CURSOR KEYS TO MOVE TO AN
6655 PRINT"[155] EMPTY SQUARE AND PRESS A LETTER KEY
6660 [153]"LIST TO ENTER LETTERS.  (null)HE PROGRAM WILL
6665 PRINT"[155] NOT ALLOW YOU TO ENTER A LETTER MORE
6670 [153]"LIST THAN ONCE BUT YOU MAY CHANGE IT AT
6675 PRINT"[155] ANY TIME.  [193] LIST OF THE LETTERS
6680 [153]"LIST AVAILABLE IS FOUND AT THE TOP OF THE
6685 PRINT"[155] SCREEN.
6695 [153]"LIST    (null)RESS ASC1 TO RETURN TO THE MAIN
6700 PRINT"[155] MENU AND [198]2 TO SEE THE SOLUTION.
6710 [153]""LN$;
6715 [153]"CONT             (null)RESS (null)VAL(null)(null)(null)(null)             WAIT(null)";
6725 [161]K$:[139]K$[179][177][199](13)[167]6725
6730 [142]
7000 [141]26
7005 [153]"(null)CLR         LENROSS (null)OTAL (null)UZZLES          WAIT(null)";
7010 [153]LN$;
7020 [153]"LIST    LENROSS (null)OTAL (null)UZZLES ARE MUCH LIKE
7025 PRINT"[155] CROSSWORD PUZZLES EXCEPT THAT YOU
7030 [153]"(null)LIST MUST FILL IN THE SQUARES USING THE
7035 PRINT"[221][155] NUMBERS 1 - 9 SO THAT THEY ADD UP TO
7040 [153]"(null)LIST THE TOTALS IN THE ACROSS AND DOWN
7045 PRINT"[221][155] BOXES.  [217]OU MAY ONLY USE EACH DIGIT
7050 [153]"(null)LIST ONCE IN EACH 'WORD'.
7070 PRINT"[221][155]    [212]HE TOTALS ARE DISPLAYED AT THE
7075 [153]"(null)LIST BOTTOM OF THE SCREEN AND REPRESENT
7080 PRINT"[221][155] THE CLUES FOR THE SQUARE THAT YOUR
7085 [153]"(null)LIST CURSOR IS ON.  ATNS YOU MOVE ACROSS
7090 PRINT"[221][155] THE GRID, THE NUMBER TOTAL WILL
7095 [153]"(null)LIST CHANGE.
7102 PRINT"[221][155]   [193]LL CONTROLS ARE ON SCREEN.
7110 [151]214,21:[153]:[153]LN$;
7115 [153]"(null)CONT             (null)RESS (null)VAL(null)(null)(null)(null)             WAIT(null)";
7125 [161]K$:[139]K$[179][177][199](13)[167]7125
7127 [142]
9600 [151]214,15:[153]
9605 [153][163]4)"CLRORTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
9607 PRINTTAB(4)"[221]              [221]
9610 [153][163]4)"(null)  (null)OADING...  (null)
9612 PRINTTAB(4)"[221]              [221]
9615 [153][163]4)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
9620 RETURN
9625 :
10000 OPEN15,8,15,"S0:PUZZLE PAGE 60":CLOSE15:SAVE"0:PUZZLE PAGE 60",8:END
11000 POKE214,12:PRINT
11005 PRINTTAB(13)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11010 Q2$="[221]                    [221]":PRINTTAB(13)Q2$
11015 PRINTTAB(13)"[221] [193]RE YOU SURE [Y/N] [221]"
11020 PRINTTAB(13)Q2$
11025 PRINTTAB(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
11030 GETK$:IFK$=""THEN11030
11035 IFK$<>"Y"THENSYS52496,0,0,24,39,43008,8,0,0:GOTO150
11037 PRINT"[147]":POKE53272,23
11040 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
11050 IFER%<>63THENPRINT"[147]":POKE43,1:POKE44,8:POKE2048,0:END
11055 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
11060 PRINT"RUN"
11061 POKE43,1:POKE44,8:POKE2048,0
11065 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END